home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / nihcl-30.lha / nihcl-3.0 / test / bag.v < prev    next >
Text File  |  1990-05-19  |  482b  |  43 lines
  1.  
  2. Test class Bag
  3. b = Bag[AssocInt[Point[(1,1)]
  4. =>Integer[1]
  5. ]
  6. AssocInt[Point[(1,3)]
  7. =>Integer[2]
  8. ]
  9. AssocInt[Point[(1,2)]
  10. =>Integer[1]
  11. ]
  12. ]
  13. b.asArrayOb: (1,1)
  14. (1,3)
  15. (1,3)
  16. (1,2)
  17. c = Bag[AssocInt[Point[(1,1)]
  18. =>Integer[1]
  19. ]
  20. AssocInt[Point[(1,3)]
  21. =>Integer[2]
  22. ]
  23. AssocInt[Point[(1,2)]
  24. =>Integer[1]
  25. ]
  26. ]
  27. c = Bag[]
  28. b.includes(C): 1
  29. c == b: 1
  30. b.includes(C): 1
  31. b = (1,1)
  32. (1,3)
  33. (1,2)
  34. b.includes(C): 0
  35. b = Bag[AssocInt[Point[(1,1)]
  36. =>Integer[1]
  37. ]
  38. AssocInt[Point[(1,2)]
  39. =>Integer[1]
  40. ]
  41. ]
  42. c == b: 0
  43.